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EMULAT.SRCIFPSWT MAR; 1 ( 
00000001 


—MARAAABRAAAAAAALAALAALALALALA LEASES SEES EERE REESE ES EE EEE EERE EEE EEE ERR 


FP_LEMUL == 1 
.NLIST CND 
“TITLE EPSLOAD ~ HEADER FOR LOADABLE FLOATING POINT EMULATION 
“IDENT 'V04=000' 
0 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


ALL RIGHTS RESERVED. 


IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
oi IN 4 SY The ke WITH THE TERMS OF SUCH LICENSE AND aie bie 


* 
7* ® 
7* * 
7* ® 
7* ® 
7* ® 
7* ad 
7* * 
7* ad 
3* * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3* TRANSFERRED. a 
7* & 
3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ¥ 
3* SHOULD NOT * 
7* * 
7* * 
8 * 
3 * 
3 © 
8 * 

* * 


AND 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


PARR RARASLARALALASASALALASASESESE ESE ESE SER ER ERE REESE RRR R EERE REE ER ERS EAS SY 
- ++ 

; Facility: 

: Instruction Emulator 

; Abstract: 

This module defines the data structures required for a piece 

of loadable code. This includes the pool header and the code 


needed to hook into the rest of the system. For the instruction 
emulation code, the hooks are vectors in the SCB. 


; Author: Kathleen D. Morse, Creation date: 04-May~1983 
; Modified by: 


v03-004 LJK0028 Lawrence J. Kenah 10-Apr-1984 
Store base address of emulator image in cell in SYS.EXE 
set aside for that purpose. 


v03-003 LJK0027 Lawrence J. Kenah 21-Mar-1984 
Store address of access violation handler into EXESGL_VAXEXCVEC 
when loading decimal/string emulator. 


; Environment: MODE=Kernel 
; v03-002 LJK0017 Lawrence J. Kenah 17-Jan-1984 
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Make table entries for SCB entries position independent. 
Change PSECT attributes. 


v03-001 wMc0001 Wayne Cardoza 23-Jun-1983 
Fix SLVTAB. 


PAO 
We wr— 


Sete Ge Ge Ge Ge Se 


Se 


i 
5 : INCLUDE FILES: 
71 3 
8 SPRIDEF 3; Define protection codes 
0 74 SPTEDEF ; Define page table entry fields 
09 o? SVADEF ; Define virtual address fields 
BS r ; This must be the first program section in the image file. 
0000 000 % -PSECT $S$$$SSBEGIN PAGE ,PIC,USR,CON,REL,GBL,SHR,NOWRT 
0000 1 - ENABLE LOCAL _BLOCK 
0900 5 10$ 
$00 6 FPSBEGIN:: ; Beginning of floating point emulator 
000 7 SLVTAB END=FPSEND , - : Size of Logt ing os emulator 
000 8 INITRIN=FPS$IN ; Address of initialization routine 
000 SUBTYP=DYNSC_NON PAGED, — ; sent yee for data structure 
000 90 PROT _W=PRTS$C_URK - " ; Protection on loadable code pages 
0600 31 FACICITY=F PEMUL.EXE : Name of image loaded 
tae 
024 194 SCB_OPCDEC: ; Hook for SCB OPCDEC except 
00000010 0024 105 . “x10 : Offset into SCB 
FFFFFEO1* 0028 196 -LONG VAXSOPCDEC - FPSBEGIN_UR :; _Offset to emulator entry pt 
00000000 o 6 18 -LONG 0 ; Empty hook ends table 
"8 
00000030 13 i: i -710$ 
: 1 ; Insure at least one page before real code begins 
; 1 : SPACE_FILLER1: ; This prevents UR access to 
000001F F 124 -BLKB <511 - ...SIZE...> ; the pool fragments on either 
1FF 0125 side of the emulation code. 
44 ! § - DISABLE LOCAL_BLOCK 
1FF «6129 FPSBEGIN_UR:: ; Starting VA to protect UR 
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++ 
Functional Description: 


FPSINIT is Linked together with all of the code required for 

pe instruction emulator. The necessary amount of non-paged pool 
s allocated and rounded up to page boundary. Code is then 
moved nto this block of pool. All of this code must be PIC. 
This code is then re-protected so that it can be executed from 
user mode. A page is allocated on either side of the emulator 

to serve as buffers, because the code is not seeded on a page 
boundary and pool cannot be protected UR for security reasons. 


The vector for opcode reserved to DIGITAL is then connected to 
the emulation code. 


Calling Sequence: 
JSB FPSINIT 
Input Parameters: 
None 


; This PSECT holds the init routines. 


DOOD a ak i i i i a a a ad dd 
DOQQ OOOO 4A 8 FF FFF Fe Fe Fe re re re rn rn en rn re re ee 
WOOCOCCCCOCO 7 FTTH on no 


ve -PSECT ____INITHK BYTE,PIC,USR,CON,REL,GBL,SHR,NOWRT 
- ENABLE LOCAL_BLOCK 
10$: 
FPSINIT:: ; Hook in emulation code 
FPSEND_ 3; Also ending VA to protect UR 
7€ 28 7D mMOva RO,-(SP) ; Save registers 
2 7D 000 MOVa R2,-(SP) ; Save registers 


Now reset the protection on the non-paged pool to be 
user-read, so that the emulation code can be accessed from 
all modes. Make it kernel-write so that breakpoints can be 
3 set in the emulation code with XDELTA. 


MOVAB W*FPSBEGIN_UR,R1 ; Get starting VA to protect URKW 
EXTZV #VASV_VPN,AVASS_VPN.R1.R1 ; Make address into VPN 
#2,R1,R1 ; Make into byte index into SPT 

w*F PSEND Ua Re : Get ending address to protect URKW 
EXTZV #VASV_VPR,#VASS_VPN.R2.R2 ; Make address into VPN 
#2,R ; Make into byte index into SPT 
MOVZBL #PRTSC 
MOVAB 


NAME ANNA FW SO OD NAMES WIR NINE WO NUE UO OOO SN — 


URKW,RO 3; New protection for emulation code 
G*MMGSGL_SPTBASE ,R3 : Get address of system page table 


INSV Bg .getesy PROT, #PTESS_PROT,a@(R3)CR1) ; Set new 
ACBL  R2,#4,R1,20$ ; prote tion for each page 
INVALID : Invalidate the translation buffer 


E 
53  00000000'GF 9€ 


mo errs 81 Oe 82 FN 


20$: 


Rt 4 § 2 QOD0O0 OOOO WO O09 090909 09 09 09 SI NINN NN NN OPA OD TIE BB 
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; Now connect the emulation code to the system control block. 


4 
; MOVL G*EXESGL_SCB,R3 ; Base address of SCB 
novi WAVAXSOPCDEC.“X10(R3) : Set SCB to point to emulator code 
§ G*MMGS$G _FPEMUL_BASE 3; Store base address of image 
8 mova (SP)+,R ; Restore registers 
mova (SP)+,R ; Restore registers 
r RSB 3 and return 
r «+e INIT_SIZE... = .-108 
rf: DISABLE LOCAL_BLOCK 
rf ; This must be the last program section in the image 
$8 SPORE | ts END BYTE,PIC,USR,CON,REL,GBL,SHR,NOWRT 
29 ; Insure at least one page at the end of the image, too 
26 SPACE_FILLER2: ; This prevents UR access to 
5 -BLKB <511 - ...JNIT_SIZE...> ; the pool fragments on either 
54 ; side of the emulation code. 
56 FPSEND:: 
60 
61 - END 
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oo JMhT SIZE... = ae 
see | came = 
DYNSC_LOADCODE = 
DYNSC_NON PAGED = 
ExeScC scé eeeerene 
' sere 000 RG ; 
FPSBEGIN_UR 1FF RG 
FPSEND 1A6 RG 4 
FPSEND_UR RG ; 
et " 
= 
MACEOL CF PCMUL BASE eeeenere xX 
MMGSGL -SPTBASE eererere x 
PRS _TBIA eeeeeeee x 
PRTSC_ER = 88 8 7 
$C_URK = 00 E 
PTESS_PROT = 00000004 
PTESV_PROT = 00 18 
OPCDE 0 $3 08 
SPATE _FILLER1 OR 0 
SPACE” FILLER2 000000 R 04 
VASS awe = 0000001 
vASV— = 00000009 
VAXSOPCDEC aerenere =X 802 
enema mee awe + 
$ ; _Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
ABS . 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 0.) 1 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSSSSBEGIN OOOOIFF (¢ 511.) 8 ( ¢°} PIC USR CON REL GBL SHR - EXE RD NOWRT NOVEC PAGE 
I NITHK 0000059 ( 89.) 03 ¢ 2 PIC USR CON’ REL GBL SHR EXE RD NOWRT NOVEC BYTE 
al END 000001A6 ( 422.) 04 ¢ 4.) PIC USR CON REL GBL SHR’ EXE RD WNOWRT NOVEC BYTE 
Poca nose recone were ome ewe 
: ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 0: : 93 8: 0:02.38 
ponnene processing 18 :00: 33 : O11: 2 
Synbol table sort 19 :00:00.25 if :00. g 
Synbol table output , 0:09: :00. : if if Y ; 
sect synopsis outpu :00:00. 
Cross-reference output 0. 0:00:00.00 
Assembler run fotale 256 0:9 00 - 8:96:99 98 


e.york ing (ss Limit woe 990 pages. 
bFo% hag (55 pages) of virtual memory were used to buffer the intermediate goede. 
he were 20 pages of symbol table space allocated to hold 247 non-local ia local symbols. 
262 source Lines were read in Pass 1, producing 17 object records in Pass 


a _ — 
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12 pages of virtual memory were used to define 11 macros. 


¢ewmnmeenreee eens ewer orc cee oa + 


! Macro Library statistics ! 


towne ern me wwe e mw een mes en ae $+ 


Macro Library name Macros defined 


.$255$0UA28: (SYS.0BJJLIB.MLB; 1 5 
$255$DUA28:CSYSLIBJSTARLET.MLB;2 4 
TOTALS (all Libraries) 3 


355 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:FPLOAD/OBJ=OBJ$:FPLOAD MSRC$:FPSWT/UPDATE=(ENHS: FPSWT) +MSRC$:LOADHDR/UPDATE=( ENH$:LOADHDR) +EXECMLS$/LIB 
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